
Bob Pabris-Publisher 
ARCiU3lAN NEWSLETTER 
3626 Morrie LriTe., 

San Jose,CA 95127-9990 



3020 Cook St,, 
Victoria, B. C. , 
V8T 339 
Canada 

April 30,1983 



Dear Mr. Pabris: 



As a reader of the Arcadian, I would like to enter 
the enclosed program, Saturn Space Dock, in the contest. 

Also, I would like to request a printing of the 
small ad below. Thank You. 



Want to Trade; New ABasic for SConqueror, CRaiders,or Conan the 
Barbarian. Write D Low 3020 Cook St. /Victoria, B.C, , Canada V8T 339 



'Dale Low 




I Certify that the program SATURN SPACE DOCK is a preset of my 
efforts and not a copy of someone elses work. Signed 











1 B=20237;POR A=0TO 34;^(a+B}=*(a)5FEXT a 

2 3=1; 0=0^ ;H=0;N=750 

3 C=20244;D=20251 

5 CLEAR; GOSUB 200;T=2 
50 ^(C}=-9999 

60 P=5;NM=3;X=-70;Y=30;CX=-70;CY=40;PRIHT #0,M," " 

70 FOR A=1T0 2 

80 IP &(23)=8X=X+A;Q=90?K=R-2 
90 IP &(2O)=8X=X-A;Q=90;N=N~2 
100 IP &(21)=16Y=Y+A;Q=150;P=P+Ax2;N=H-3 

105 NEXT A 

106 CX=0;CY=40; PRINT #0,P," ", ;CX= 60; PRINT #0,N 

107 IP &(23)=1>I'5NT=7;M=M-50;MU=88;NT=0;GOTO 60 

110 Y=Y-1;P=P-1 

111 IP RND(13-AB3(0))=1X=X+K 

112 IP N<1CX=-30;CY=20; PRINT ’’OUT OP PUELi";IP KPGOTO 
115 FOR N¥=QTO 40 5 NEXT NV;Q=40 

120 IP(T>35)+(Y<-32)+(X>70)+(X<-75)GOTO 60 
140 ^^(D)=abs(Y-40)x256+X+76: 

150 CALLB;‘:^(C)=^(D) 

170 IP(PX(X,Y-9))+(PX{X+12,Y-9))G0T0 320 
180 GOTO 70 

200 H=0;NT=0;BC=0;PC=180 

201 R=-35; 3=3+1 

205 O=RND(17)-9;K=(O>0)x3-(O4O)xS 
206: IP k>5K=5 
207 IP K<-5K=-5 

210 FOR A=-80TO 79;LINE A,-44,0;LINE A,R,i 




2 







7^ is "7^4^* 



iOAh -TAPP, & Sl'bS, AS Soi>^ AS Cues<sft A — 

QoLJ'—STA^T -TAP^ A^l AfKJ ^ U>AhS /kj 5 Cec<! , 




220 IP R>-10R=R-3 
230 IP R<-40R=R+3 
240 R=R+R1ID(7)-4 

250 IP A<50IP A>-70IP H=0IP R>-15H=A 

260 IJBXT A 

261 CX=-20;CY=40jPRIM' #0,”4IND:'' ,0;P0R A=1T0 500 5 NEXT A 

262 CY=40;CX=-20; PRINT " " 

300 IP H=0H=RND(99}-50 

301 &(10)=0;BOX H+10,0,30,40,2;BOX H+10,-30,30,20,2 

302 CX=H+2 ;CY=~25; PRINT #0,3,; TV=98 

303 BOX H+10,-30,30,20,3;&(10)=176;RETURN 

320 IP(P<2)+(P>7)GOTO 329 

321 IP X>H-3IP X<H+13GOTO 350 

329 TA=55;VA=12;P0R A=1T0 15;B0X X+4, Y-2, A, A-3, 1 

330 NEXT A;P0R A=1T0 15;B0X X+4, Y-2, A, A-3, 2;NEXT A 

331 +;M=M-500;GOTO 50 

350 -V ; NT= 7 ; MU=8 3 ; MU=40 ; I1U= 7 2 ; M,U=8 3 ; NT =0 
355 V=(9-ABS(H+8-X))x4 

360 CY= 25 ;CX=-30; PRINT '’WELL DONEl I" ;CX=-33;PRINT #0, "BONUS:" ,P,"x" ,S 

370 CX=-35;PRINT "<PUEL BONUS^”,#0,(8-T)xPxSx2 

371 N=N+(8-T)xPx3x2 

380 FOR A=1T0 999; NEXT A 

390 BOX 0,15,l20,30,2;M=M+PxVx3 

400 CY=40;CX=-70; PRINT #0,M;T=T-1;GOTO (T#)x55+5 




